home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / General / ViewIt™ 2.24 Shareware / C Demo Projects / THINK C 6.0 Demos / FaceProcLC.c next >
Text File  |  1994-01-27  |  3KB  |  89 lines
  1. /* FaceWare 2.2 Initialization & Dispatching Procedures */
  2. /* ©FaceWare 1989-93.  All Rights Reserved. */
  3.  
  4. #include "FaceStorLC.h"
  5. struct FaceRec fRec;
  6.  
  7. typedef struct HeadRec {
  8.         ProcPtr        addr;
  9.         short            baseID;
  10.         short            versID;
  11.         short            message;
  12.         short            resID;
  13.         Ptr                fPtr;
  14.     } HeadRec,    *HeadPtr;
  15.  
  16. void PrepIt (long x, long b, long v, long r, long f)
  17.     {
  18.     short i;
  19.     ((HeadPtr)x)->addr    = (ProcPtr)*GetResource('FCMD',1000);
  20.     ((HeadPtr)x)->baseID  = b;
  21.     ((HeadPtr)x)->versID  = v;
  22.     ((HeadPtr)x)->message = 0;
  23.     ((HeadPtr)x)->resID     = r;
  24.     ((HeadPtr)x)->fPtr    = (Ptr)f;
  25.     if (fRec.xEntries > 0) 
  26.      for (i = 0; i <= fRec.xEntries - 1; i++)
  27.         if (((HeadPtr)x)->baseID == fRec.xTable[i * 4])
  28.          if (((HeadPtr)x)->versID == fRec.xTable[1 + i * 4])
  29.           if (fRec.xTable[3 + i * 4] != 0)
  30.              ((HeadPtr)x)->addr = (ProcPtr)fRec.xTable[3 + i * 4];
  31.     }
  32.  
  33. pascal void fJumpIt(void* thePtr) = {0x2257,0x2051,0x4E90};
  34.  
  35. void FaceIt (void* thePtr, long m1, long m2, long m3, long m4, long m5)
  36.     {
  37.     short i;
  38.     if (m1 == DoInit) {
  39.         if (m4 > -1 && !BitTst(&m4, 31L)) {
  40.             FlushEvents(62, 0);        /* ignore spurious mouse and key events */
  41.             InitGraf(&thePort);        /* perform appropriate Mac initializations */
  42.             InitFonts();
  43.             InitWindows();
  44.             InitMenus();
  45.             TEInit();
  46.             InitDialogs(0L);
  47.             }
  48.         CtoPstr(fRec.uName);
  49.         if (GetResource('FCMD', 1000) == 0)    /* LoadIt available? */
  50.          if (OpenResFile((StringPtr)StripAddress((Ptr)fRec.uName)) < 0)
  51.              ExitToShell();                                        /* quit if not found */
  52.         fRec.fFlags = m2;                /* store FaceIt bit flags    */
  53.         fRec.xEntries = m5;            /* store # of table entries */
  54.         thePtr = (Ptr)&fRec;    
  55.         if (m3 > -1) {                    /* call LoadIt to expand heap? */
  56.             PrepIt((long)thePtr,m3,0L,0L,(long)thePtr);
  57.             fJumpIt(thePtr);}
  58.         PrepIt((long)thePtr,1100L,22L,0L,(long)thePtr);           /* setup fRec header    */
  59.         PrepIt((long)fRec.uHead,1210L,22L,0L,(long)thePtr);  /* setup uRec header    */
  60.         PrepIt((long)fRec.vHead,1200L,22L,0L,(long)thePtr);  /* setup vRec header    */
  61.         fRec.fHead[5] = m4;            /* store environment type    */
  62.         fRec.uHead[5] = 1;            /* store string type */
  63.         thePtr = 0L;
  64.         if (m4 < -3) return;
  65.         }
  66.     if (m1 == DoPrep)
  67.         PrepIt(m2, m3, m4, m5, (long)&fRec);
  68.     else if (m1 < 0 && m1 > -11) {
  69.         i = (4 * (-1 - m1));
  70.         fRec.xTable[i] = m2;
  71.         fRec.xTable[1 + i] = m3;
  72.         fRec.xTable[2 + i] = m4;
  73.         fRec.xTable[3 + i] = m5;}
  74.     else {
  75.         if (thePtr == 0L)                                                                    /* default module? */
  76.             thePtr = (Ptr)fRec.uHead; 
  77.         else if (((HeadPtr)thePtr)->fPtr != (Ptr)&fRec) { /* control driver? */
  78.             fRec.cControl = (ControlHandle)thePtr;
  79.             thePtr = (Ptr)fRec.vHead;}
  80.         ((HeadPtr)thePtr)->message = 0;
  81.         fRec.uCommand = m1;            /* pass Command & Params */
  82.         fRec.uParam[0] = m2;
  83.         fRec.uParam[1] = m3;
  84.         fRec.uParam[2] = m4;
  85.         fRec.uParam[3] = m5;
  86.         fJumpIt(thePtr);                /* jump to FCMD module */
  87.         }
  88.     }
  89.